home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 65
/
64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_B.d64
/
neues input
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
38 lines
10 rem ***************************
12 rem"* *
14 [143]"* (NULL)illi peekurmeister *
16 rem"* *
18 [143]"* left$olzkrugweg 30 *
22 rem"* 2390 [198]lensburg *
24 [143]"* *
26 rem"* [212]el.: 0461/92164 *
28 [143]"* *
30 rem"* [194]asic - *
32 [143]"* valingaberoutine *
34 rem"* *
36 [143]"***************************
40 goto 1000
50 rem ***************************
60 rem * begin der routine *
70 rem ***************************
100 print in$; : zt=ti : zc=4 : if (lt<1) then lt=1
110 get z$ : if z$<>"" then 140
120 if (zt<=ti) then print mid$(" [145] [146]",zc,3);"[157]"; : zc=5-zc : zt=ti+25
130 goto 110
140 z=asc(z$) : zl=len(in$)
150 if (zl<lt) and ((z and 127)>31) then in$=in$+z$ : print z$; : poke 212,0 : goto 110
160 print" [157]";
170 if (z=13) and (zl>0) then return
180 if (z=20) and (zl>0) then in$=left$(in$,zl-1) : print "[157]"; : goto110
190 if (z=141) and (zl>0) then for z=1 to zl : print "[157] [157]"; : next : in$=""
200 goto 110
210 rem ***************************
220 rem * ende der routine *
230 rem ***************************
1000 print"[147]"
1010 print"[194]asic-[197]ingaberoutine [194]eispiel"
1020 print : print
1030 in$="[214]orbesetzung" : lt=15
1040 gosub 100
1050 print "" : print in$